object frmObjectStateList: TfrmObjectStateList
  Left = 0
  Top = 0
  Caption = 'frmObjectStateList'
  ClientHeight = 399
  ClientWidth = 637
  Color = clBtnFace
  Constraints.MinHeight = 307
  Constraints.MinWidth = 243
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    637
    399)
  PixelsPerInch = 96
  TextHeight = 13
  object pbHeader: TPaintBox
    Left = 0
    Top = 0
    Width = 637
    Height = 57
    Align = alTop
    Color = clNone
    ParentColor = False
    OnPaint = pbHeaderPaint
    ExplicitWidth = 513
  end
  object lbCaption: TLabel
    Left = 8
    Top = 8
    Width = 60
    Height = 16
    Caption = 'lbCaption'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbAction: TLabel
    Left = 16
    Top = 32
    Width = 38
    Height = 13
    Caption = 'lbAction'
  end
  object btClose: TButton
    Left = 538
    Top = 366
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = '&Close'
    Default = True
    ModalResult = 1
    TabOrder = 0
  end
  object pnListItems: TPanel
    Tag = 1
    Left = 0
    Top = 57
    Width = 637
    Height = 299
    Align = alTop
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelEdges = [beTop, beBottom]
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      637
      299)
    object Bevel1: TBevel
      Left = 0
      Top = 295
      Width = 637
      Height = 4
      Align = alBottom
      Shape = bsBottomLine
      ExplicitLeft = 2
      ExplicitTop = 272
      ExplicitWidth = 511
    end
    object Bevel3: TBevel
      Left = 0
      Top = 0
      Width = 637
      Height = 6
      Align = alTop
      Shape = bsTopLine
      ExplicitLeft = 380
      ExplicitTop = 8
      ExplicitWidth = 50
    end
    object tcTabs: TTabControl
      Left = 8
      Top = 12
      Width = 617
      Height = 273
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 0
      Tabs.Strings = (
        'Items')
      TabIndex = 0
      DesignSize = (
        617
        273)
      object lvItems: TListView
        Tag = 1
        Left = 12
        Top = 32
        Width = 507
        Height = 229
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'State'
            Width = 120
          end
          item
            Caption = 'Name'
            Width = 120
          end
          item
            Caption = 'Description'
            Width = 240
          end>
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        SortType = stText
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = lvItemsAdvancedCustomDrawItem
        OnChange = lvItemsChange
        OnCompare = lvItemsCompare
        OnDblClick = lvItemsDblClick
      end
      object btAdd: TButton
        Left = 530
        Top = 32
        Width = 75
        Height = 25
        Action = acAdd
        Anchors = [akTop, akRight]
        TabOrder = 1
      end
      object btRemove: TButton
        Left = 530
        Top = 68
        Width = 75
        Height = 25
        Action = acRemove
        Anchors = [akTop, akRight]
        TabOrder = 2
      end
      object btEdit: TButton
        Left = 530
        Top = 118
        Width = 75
        Height = 25
        Action = acEdit
        Anchors = [akTop, akRight]
        TabOrder = 3
      end
    end
  end
  object ActionList1: TActionList
    Left = 424
    Top = 12
    object acAdd: TAction
      Caption = 'Add...'
      Hint = 'Add a new item'
      OnExecute = acAddExecute
    end
    object acRemove: TAction
      Caption = 'Remove'
      Hint = 'Remove selected item'
      OnExecute = acRemoveExecute
    end
    object acEdit: TAction
      Caption = 'Edit...'
      OnExecute = acEditExecute
    end
  end
end
